home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_150_Rename this.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  42 lines
  1. ItemType: WIND
  2. Rect: 219,302,435,408
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: FALSE
  6. HasZoomBox: FALSE
  7. Name: Rename this
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬if objValue="Open" then┬  wsSet wdID,"New name","Selection", "0,36"┬end if┬--end windowEvent
  9. Params: i5_Text┬i3_Text┬i0_TopLeft
  10. Result: i3_Text
  11.  
  12. ItemType: PUSH
  13. Rect: 126,78,198,98
  14. Name: OK
  15. DefaultItem: TRUE
  16. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"New name","text")┬put it into namer┬get wsGet(wdID,"Type","Text")┬put last word of it into typer┬delete last char of typer -- the colon┬if typer="Category" then┬  put "CatListA" into t1┬  put "CatListL" into t2┬end if┬if typer="Detail" then┬  put "itemListA" into t1┬  put "itemListL" into t2┬end if┬if typer="Report" then┬  put "ReportList" into t1┬  put "ReportList" into t2 -- superfluous┬end if┬if (namer=empty) then┬  beep┬  alertNote("You forgot to select a name to edit.")┬else ┬  if checkQuality(namer,25)="fail" then┬    alertNote("Incorrect entry╤either too long or contains improper characters.")┬    wsSet wdID,"New name","Text",""┬  else┬    put item 1 of checkIfThere(namer,t1) into checker1┬    put item 1 of checkIfThere(namer,t2) into checker2┬    if (checker1="found") or (checker2="found") then┬      beep┬      alertNote("The "&typer&" name ╥"&namer&"╙ is already used."&return&return&"Please enter another.")┬      wsSet wdID,"New name","Text",""┬    else┬      wsSend wdID,0,"Close"┬    end if┬  end if┬end if┬--end mouseUp┬
  17.  
  18. ItemType: PUSH
  19. Rect: 15,78,95,98
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: TEXT
  25. Rect: 15,24,205,41
  26. TextFont: Geneva
  27. TextSize: 10
  28. AutoSize: FALSE
  29. Name: New name
  30. LockText: FALSE
  31.  
  32. ItemType: TEXT
  33. Rect: 15,46,198,58
  34. TextFont: Geneva
  35. TextSize: 9
  36. Name: instr
  37. Text: 25 letters or less, no ╥/╙, ╥(╙ or ╥,╙
  38.  
  39. ItemType: TEXT
  40. Rect: 4,2,38,18
  41. Name: Type
  42. Text: Type